home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / wb / Explode12b.lzh / explode / exp.a < prev    next >
Encoding:
Text File  |  1992-01-18  |  504 b   |  23 lines
  1. *
  2. * exp.a - assembler interface for exploding windows code
  3. *
  4. * Bruno Costa - 30 Aug 89
  5. *
  6.  
  7.     xdef    _ExplodeWindow
  8.     xref    _DoExplode
  9.     xref    _openWindow
  10.  
  11.         section "text",code
  12.  
  13. _ExplodeWindow:
  14.     move.L    A0,-(A7)        ; pass NewWindow parameter on stack 
  15.     jsr    _DoExplode        ; call C function that "explodes"
  16.     movea.L    (A7),A0            ; restore A0 to point to NewWindow
  17.     addq.L    #4,A7            ; restore stack pointer
  18.     movea.L    _openWindow,A1        ; load original OpenWindow address
  19.     jsr    (A1)            ; call it to open the window
  20.     rts
  21.  
  22.     END
  23.